home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 1 / CU Amiga Magazine CD-ROM Special Edition (1995)(EMAP Images)(GB)[Issue 1995-11].iso / Aminet / biz / dbase / AFile_v403.lha / AFile / Example / DisksPrint.rexx < prev    next >
OS/2 REXX Batch file  |  1994-04-03  |  353b  |  25 lines
  1. /*
  2.  * This is a sample script which is called to print records
  3.  */
  4.  
  5. SIGNAL ON ERROR
  6. OPTIONS RESULTS
  7. ADDRESS "AFile_rexx"
  8.  
  9. /* read data from record */
  10.  
  11. "GETFIELD ARTIST"
  12. Artist = STRIP( RESULT )
  13. "GETFIELD ALBUM"
  14. Album = STRIP( RESULT )
  15. "GETFIELD YEAR"
  16. Year = STRIP( RESULT )
  17.  
  18. SAY Artist || ', ' || Album || ' (' || Year || ')'
  19.  
  20. /* end */
  21.  
  22. ERROR:
  23. EXIT 0
  24.  
  25.